home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / COMMON / TOOLS / VCM / VCM.MDB / VcmComponentContainer / 18_Cabinet / wcdemo.asp < prev    next >
Encoding:
Text File  |  1998-05-18  |  497 b   |  21 lines
  1. <%
  2. Server.ScriptTimeout=600
  3. Response.Buffer=True
  4. Response.Expires=0
  5.  
  6. If (VarType(Application("~WC~WebClassManager")) = 0) Then
  7.     Application.Lock
  8.     If (VarType(Application("~WC~WebClassManager")) = 0) Then
  9.         Set Application("~WC~WebClassManager") = CreateObject("WebClassRuntime.WebClassManager")
  10.     End If
  11.     Application.UnLock
  12. End If
  13.  
  14. Application("~WC~WebClassManager").ProcessNoStateWebClass "wcDemo.wbcls1", _
  15.         Server, _
  16.         Application, _
  17.         Session, _
  18.         Request, _
  19.         Response
  20. %>
  21.